Option Explicit
Sub D_Sample024()
    Dim mySht As Worksheet
    Set mySht = Worksheets(1)				'Nu@
    'ǳƨ즹
    With mySht
        .Protect  						'tw]O@
        .Protect Password:="Password" 		'HKXӫO@
        .Protect DrawingObjects:=True 		'O@yø
        .Protect Contents:=True 			'O@xs椺e
        .Protect Scenarios:=True  			'O@Rť
        .Protect UserInterfaceonly:=True		'O@ϥΪ̾զ۾ާ@
    End With
    Set mySht = Nothing					'
End Sub

